home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / err_erl.txt < prev    next >
Text File  |  1994-03-01  |  247b  |  9 lines

  1. 10 '*** OISAC 2 *** ERR-ERL ***
  2. 20 ON ERROR GOTO 1000
  3. 30 INPUT"A ";A
  4. 40 PRINT 1/A
  5. 50 PRINT PEEK A
  6. 60 END
  7. 1000 IF ERR=14 THEN PRINT"Division par 0 impossible":RESUME10
  8. 1010 IF ERL=40 THEN PRINT"PEEK impossible":RESUME60
  9. 1020 ON ERROR GOTO 0